<script>on mouseUpif trapDoubleClick(the rect of me) is true then coordinatorend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>292</left>
<top>325</top>
<right>318</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Page</name>
<script></script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>316</left>
<top>321</top>
<right>339</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1832</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpvisual effect wipe left fastgo to next card in this bkgndend mouseUp</script>
</part>
<part>
<id>1</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>439</left>
<top>324</top>
<right>510</right>
<bottom>340</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Clock</name>
<script>on mouseUpif trapDoubleClick(the rect of me) is true thenput the date into mewait 1 secend ifend mouseUpon mouseStillDowndragTargetend mouseStillDown</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>202</left>
<top>321</top>
<right>225</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26402</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseUpvisual effect wipe right fastgo to prev card in this bkgndend mouseUp</script>
<script>on mouseUpgo to card "stacks"end mouseUp</script>
</part>
<part>
<id>98</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>3</left>
<top>24</top>
<right>31</right>
<bottom>323</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>clean</name>
<script>on mouseUpif trapDoubleClick(the rect of me) is false then doADeselectelseif fld "page" is 1 then set the rect of cd fld "axis" to 7,22,63,50doACleanUpend ifend mouseUp</script>
</part>
<part>
<id>95</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>488</left>
<top>53</top>
<right>503</right>
<bottom>68</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Applications</name>
<script>on mouseUpgo to card "applicationlauncher1"end mouseUp</script>
</part>
<part>
<id>96</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>490</left>
<top>81</top>
<right>502</right>
<bottom>96</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>About</name>
<script>on mouseUpglobal mHomeVers,mHomeDate,mHomeRevget item(item 2 of mHomeRev/20) of "∂lpha test,ßeta test,developmental,release version"showAlert 2,9942,"Version"&&mHomeVers&&"("&it&")",mHomeDate,Bend mouseUp</script>
<script>on openBackgroundset the cursor to 4global sellock screencreate menu "Manager"create menu "Prefs"put "Set UserName,-,UserLevel…,Language…,Text Arrows,Power Keys,Blind"¬&&"Typing,Power Commands,Message Flashbacks,Auto–Compacting,Message"¬&&"Box Memory,-,Script Text…,-,Double–Click Rate…,Drag Delay…,-,Screen–Saver…,"¬&"Screen–Saver Icon…" into menu "Prefs"disable menuItem "Language…" of menu "Prefs"if sel is empty then shortMgr else longMgrshow menuBarend openBackgroundon closeBackgroundif there is a menu "Manager" then delete menu "Manager"if there is a menu "Prefs" then delete menu "Prefs"end closeBackgroundon doMenu itum,menuNameif menuName is not "Manager" and menuName is not "Prefs" then pass doMenuif menuName is "Manager" thenput the number of btns into xif itum is "Dragging" then --DRAGGINGglobal drput not dr into drput dr into line 8 of card field "prefs" of card 1else if itum is "Mouse Coordinates" then --COORDINATESglobal coordsput not coords into coordsput coords into line 7 of card field "prefs" of card 1else if itum is "Open" then --OPENglobal sel,ssgo card sssendIntercept "doBtnScript",(the name of btn sel),xput the short name of btn sel into kif "--path: " is in line 1 of the script of btn kthenput line 1 of the script of btn k into kdelete char 1 to 8 of kend ifdoADeselectgoto kexit doMenuelse if itum is "Rename…" then --RENAMEglobal sel,ssgo card ssput the short name of btn sel into oldNameask"New name for selected link:" with oldNameput it into ttif tt is empty then exit doMenuset the name of btn sel to ttanswer "Change Finder name also?" with "Yes" or "No"if it is "Yes" thenput the long name of stack (oldName) into oldNamedelete char 1 to 7 of oldNamedelete last char of oldNameput renameFile (oldName,tt) into erCif erC≠0 thenbeep 2answer"Couldn’t change actual name" with "Cancel"exit doMenuend ifput the script of btn sel into kif "--path: " is in line 1 of kthenput "--path: "&pathName(oldName)&tt into line 1 of kset the script of btn sel to kend ifend ifexit doMenuelse if itum is "New Icon…" then -- NEW ICONglobal sel,ssgo card ssask"New icon (name or #) for selected link:" with the icon of ¬btn selif it is empty then exit doMenuif okIcon(it) is false thenbeep 2answer "That icon does not exist." with "Cancel"exit doMenuend ifset the icon of btn sel to itexit doMenuelse if itum is "New Card" then --NEW CARDset the cursor to 4lock screenset the lockMessages to truego to last cd in this bgput fld "page" into PFsend "doMenu New Card" to hyperCardput "Mouse:"&return&"0,0" into field "coords"put PF+1 into fld "page"send openCard to this cdexit doMenuelse if itum is "Remove Card" then --DELETE CARDbeep 2answer"Do you really want to delete this entire card?" with "OK" or¬"Cancel"if it is "Cancel" then exit doMenuset the cursor to 4lock screenset the lockMessages to truedoMenu"delete card"go previf fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page">the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page" = the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"else if itum is "Clean Up All" then -- CLEAN UP ALLif fld "page" is 1 then set the rect of cd fld "axis" to 7,22,63,50doACleanUpexit doMenuelse if itum is "Clean Up" thenglobal sel,ssgo cd ssdoACleanUp(sel)exit doMenuelse if itum is "Place…" thenglobal sel,ssgo card ssput the number of btns into x -- DO NOT DELETEask "Place selected button at what position? (1-"&x&")"¬with selif it is sel or it is empty then exit doMenuif it<1 or it>x thenbeepexit doMenuend ifset the cursor to 4put the id of btn sel into sseellset the lockScreen to trueput the userLevel into ssulif ssul<5 then set the userLevel to 5choose button toolclick at the loc of btn selif it<sel thenrepeat until the number of btn id (sseell)=itdoMenu "Send Farther"end repeatelserepeat until the number of btn id (sseell)=itdoMenu "Bring Closer"end repeatend ifput it into selif ssul<5 then set the userLevel to ssulchoose browse tooldoACleanUp(sel)unlock screenput "If the button is not visible, try doing a CLEAN UP ALL."get the mouseLocwait until the mouseLoc is not ithide msgexit doMenuelse if itum is "Deselect" then --DESELECTdoADeselectexit doMenuelse if itum is "Add Stack…" then --ADD A STACKput (the shiftKey is "down") into shKeyglobal adsIanswer file "Choose a stack to add." of type "STAK"go to this cardput it into appFilelock screenif appFile is empty then exit doMenuset cursor to 4put the userLevel into sLif the userLevel<>5 then set the userLevel to 5put buttonName(appFile) into appNameput the number of btns into xxxdoMenu "New Button"put the id of btn (xxx+1) into appIDset name of btn id appID to appNameset icon of btn id appID to adsIset style of btn id appID to transparentif shKey is falsethenset the script of btn id appID to emptyelseset the script of btn id appID to "--path: "&appFileend ifshow btn id appIDput pathName(appFile) into aCif aC&return is not in field "paths" of card "stacks" thenif (last char of (field "paths" of card "stacks")) is not return¬then put return after field"paths" of card "stacks"put aC&return after field "paths" of card "stacks"global stacksput field "paths" of card "stacks" into stacksend ifchoose browse tooldoACleanUp (the number of btns) -- DO NOT CHANGE TO (x)!!!if the userLevel<>5 then set the userLevel to sLupdMenusexit doMenuelse if itum is "Add Stack Default Icon…" then --ADD STACK ICONglobal adsIask "Default icon for “Add a stack”:" with adsIif it is empty then exit doMenuif okIcon(it) is false thenbeep 2answer "That icon does not exist." with "Cancel"exit doMenuend ifput it into adsIput adsI into line 15 of card field "Prefs" of card 1exit doMenuelse if itum is "Remove Link" then --REMOVE A STACKglobal sel,sgo card ssbeep 2answer"Do you really want to remove this link?" with "OK"¬or "Cancel"if it is "OK" thenpush cardlock screenget seldoADeselectput it into selset the cursor to 4put the userLevel into sLif the userLevel<>5 then set the userLevel to 5select btn seldoMenu"Clear Button"choose browse toolif the userLevel<>5 then set the userLevel to sLunlock screenput empty into selend ifexit doMenuend ifelse if menuName is "Prefs" thenif itum is "Set UserName" then --USERNAMEglobal userNameask"Your UserName:" with userNameif it is not empty then put it into userNameput userName into line 5 of card field "Prefs" of card 1exit doMenuelse if itum is "UserLevel…" then --USERLEVELget item (the userLevel) of "Browsing,Typing,Painting,Authoring,Scripting"showAlert 4,,"Your UserLevel is currently"&&it&"."&return&"Set it to:",,Bif the result is 1 then exit doMenuset the userlevel to item (the result) of ",2,3,,,4,5,1"put the userLevel into line 9 of card field"prefs" of card 1else if itum is "Language…" then --LANGUAGEhandleError "M2","00"else if itum is "Power Commands" then --EXPERIENCEglobal powerUserput not powerUser into powerUserput powerUser into line 4 of card field "Prefs" of card 1else if itum is "Text Arrows" then --TEXT ARROWSset the textArrows to not the textArrowsput the textarrows into line 1 of card field"Prefs" of card 1else if itum is "Power Keys" then --POWER KEYSset the powerKeys to not the powerKeysput the powerkeys into line 2 of card field"Prefs" of card 1else if itum is "Blind Typing" then --BLIND TYPINGset the blindTyping to not the blindTypingput the blindTyping into line 3 of card field"Prefs" of card 1else if itum is "Double–Click Rate…" then --DOUBLE–CLICK SPEEDglobal clickSpeedanswer "Choose your double–clicking speed:" with "Slow","Medium","Fast"if it is "Slow" then put 3 into clickSpeedif it is "Medium" then put 2 into clickSpeedif it is "Fast" then put 1 into clickSpeedput clickSpeed into line 10 of cd fld"prefs" of cd 1exit doMenuelse if itum is "Script Text…" then -- SCRIPT TEXTseput ((the scriptTextFont)&","&(the scriptTextSize)) into line 17 of cd fld "prefs" of cd 1else if itum is "Drag Delay…" then -- DRAG DELAYglobal dragDelayanswer "Choose a drag delay:" with "None" or "Long" or "Short"if it is "None" then put 0 into dragDelayif it is "Long" then put 2 into dragDelayif it is "Short" then put 1 into dragDelayput dragDelay into line 16 of cd fld"prefs" of cd 1exit doMenuelse if itum is "Screen–Saver Icon…" then --SCREEN–SAVER ICONglobal idask"Icon (name/number) for screen saver:" with idif it is empty then exit doMenuif okIcon(it) is false thenbeep 2answer "That icon does not exist." with "Cancel"exit doMenuend ifput it into idput id into line 11 of cd fld"prefs" of cd 1exit doMenuelse if itum is "Auto–Compacting" then --AUTO–COMPACTINGglobal autoCput not autoC into autoCput autoC into line 12 of cd fld"prefs" of cd 1else if itum is "Message Box Memory" then --MESSAGE BOX RESTORINGif the cmdKey is "down" thenmsgCmd"clear"exit doMenuend ifglobal mXput not mX into mXput mX into line 6 of card field "prefs" of card 1else if itum is "Screen–Saver…" then --SCREEN–SAVERglobal screenSanswer "Choose a Screen–Saver mode:" with "Off" or "“Boss Mode”" or "Normal"if it is "Off" then put 0 into screenSif it is "Normal" then put 1 into screenSif it is "“Boss Mode”" then put 2 into screenSput screenS into line 13 of card field"prefs" of card 1exit doMenuelse if itum is "Message Flashbacks" then --LAST COMMAND TYPEDglobal shiftTput not shiftT into shiftTput shiftT into line 14 of card field"prefs" of card 1end ifend ifupdMenusend doMenuon updMenusglobal dr,coords,maxBtns,powerUser,shiftT,mX,autoCif there is no menu "Manager" then exit updMenusset the cursor to 4set the checkMark of menuItem "Dragging" of menu "Manager" to drset the checkMark of menuItem "Mouse Coordinates" of menu "Manager" to coordsset the enabled of menuItem "Remove Card" of menu "Manager" to (fld "page" is not 1)set the enabled of menuItem "Add Stack…" of menu "Manager" to (the number of btns<maxBtns)set the enabled of menuItem "Text Arrows" of menu "Prefs" to (the userLevel>1)set the enabled of menuItem "Power Keys" of menu "Prefs" to (the userLevel>2)set the enabled of menuItem "Blind Typing" of menu "Prefs" to (the userLevel>4)set the enabled of menuItem "Script Text…" of menu "Prefs" to (the userLevel>4)set the checkMark of menuItem "Text Arrows" of menu "Prefs" to (the textArrows)set the checkMark of menuItem "Power Keys" of menu "Prefs" to (the powerKeys)set the checkMark of menuItem "Blind Typing" of menu "Prefs" to (the blindTyping)set the checkMark of menuItem "Power Commands" of menu "Prefs" to powerUserset the checkMark of menuItem "Message Flashbacks" of menu "Prefs" to shiftTset the checkMark of menuItem "Auto–Compacting" of menu "Prefs" to autoCset the checkMark of menuItem "Message Box Memory" of menu "Prefs" to mXend updMenuson openCardif fld "page" is 1then set the icon of bg btn "prev" to "√Grey Prev Arrow"else set the icon of bg btn "prev" to "Prev Arrow"if fld "page">the number of cds of this bgthen put the number of cds of this bg into fld "page"if fld "page" = the number of cds of this bgthen set the icon of bg btn "next" to "√Grey Next Arrow"else set the icon of bg btn "next" to "Next Arrow"updMenusend openCardon idleglobal coordsput the short time into field "Clock"if coords is true and the shiftKey is up then put the mouseLoc into line 2 of fld "Coords"end idleon mouseUpif "Card Button" is not in the long name of the target then pass mouseUpset the cursor to 4doADeselectglobal sel,ssif trapDoubleClick(the rect of the target) is not true thenput the number of the target into selput the number of this card into ssset the hilite of btn sel to truelongMgrelseif "doBtnScript" is in the script of the target thensend doBtnScript to the targetexit mouseUpend ifput the short name of the target into kif "--path: " is in line 1 of the script of btn kthenput line 1 of the script of btn k into kdelete char 1 to 8 of kend ifgoto kend ifend mouseUpon mouseStillDownif "Card Button" is not in the long name of the target then pass mouseStillDowndragTargetend mouseStillDownon longMgrif there is no menu "Manager" then exit longMgrput "Dragging,Mouse Coordinates,-,Open,-,Rename…,New Icon…,-,Add Stack…,Add Stack Default Icon…,Remove Link,-,New Card,Remove Card,-,Clean Up,Clean Up All,Place…,-,Deselect"¬into menu "Manager"updMenusend longMgron shortMgrif there is no menu "Manager" then exit shortMgrput "Dragging,Mouse Coordinates,-,Add Stack…,Add Stack Default Icon…,-,New Card,Remove Card,-,Clean Up All"¬into menu "Manager"updMenusend shortMgr</script>
